home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / spitfire / mqm.zip / EXAMPLEQ.ZIP / BUL1.Q < prev    next >
Text File  |  1992-02-19  |  3KB  |  99 lines
  1. WS: bul1.a /^/^****************************************/^Time :/T/^Date :/D/^Name :/UN/^Born :/UB/^Phone:/U#/^****************************************/^     Do you wish to become a Member?
  2. D: bul1.col bul1.nor
  3. L: Continue? Y/N: 
  4. I: YyNn
  5. IF Yy
  6. WS: bul1.a User: Yes
  7. D: bul1mnu.col bul1mnu.nor
  8. WS: bul1.a /^At Which Level?
  9. NEI: Qq1234
  10. O: /^
  11. IF 1
  12. WS: bul1.a User: ($5) Access To CD-ROM
  13. USEC: 200
  14. UTIME: 40
  15. WS: bul1.a /^Security Raised to /US, time by 40!
  16. O: Your Security Has Been Raised To /US!
  17. L: /^Would you like to recive an envelope to send the money ($1 extra)? Y/N: 
  18. I: YyNn
  19. IF Yy
  20. WS: bul1.a /^User requested envelope!
  21. O: /^Ok! The envelope will be sent to you shortly!/^/^Please send $6. Thanx!
  22. END
  23. ELSE
  24. O: /^OK! Please send $5 to:/^/^Catholic Central High School/^c/o CCH Computer Club/^415 Queens Ave./^London, Ont./^N6B 3K3/^Thanx!
  25. END
  26. END
  27. ELSE_IF 2
  28. WS: bul1.a User: ($5) Unlimited Download Ratio
  29. USEC: 200
  30. UTIME: 40
  31. WS: bul1.a /^Security Raised to /US, time by 40!
  32. O: Your Security Has Been Raised To /US!
  33. L: /^Would you like to recive an envelope to send the money ($1 extra)? Y/N: 
  34. I: YyNn
  35. IF Yy
  36. WS: bul1.a /^User requested envelope!
  37. O: /^Ok! The envelope will be sent to you shortly!/^/^Please send $6. Thanx!
  38. END
  39. ELSE
  40. O: /^OK! Please send $5 to:/^/^Catholic Central High School/^c/o CCH Computer Club/^415 Queens Ave./^London, Ont./^N6B 3K3/^Thanx!
  41. END
  42. END
  43. ELSE_IF 3
  44. WS: bul1.a User: ($10) Full Member (CD + Download)
  45. USEC: 300
  46. UTIME: 40
  47. WS: bul1.a /^Security Raised to /US, time by 40!
  48. O: Your Security Has Been Raised To /US!
  49. L: /^Would you like to recive an envelope to send the money ($1 extra)? Y/N: 
  50. I: YyNn
  51. IF Yy
  52. WS: bul1.a /^User requested envelope!
  53. O: /^Ok! The envelope will be sent to you shortly!/^/^Please send $11. Thanx!
  54. END
  55. ELSE
  56. O: /^OK! Please send $10 to:/^/^Catholic Central High School/^c/o CCH Computer Club/^415 Queens Ave./^London, Ont./^N6B 3K3/^Thanx!
  57. END
  58. END
  59. ELSE_IF 4
  60. WS: bul1.a User: ($15+) Full Member (CD + Download + More)
  61. USEC: 400
  62. UTIME: 40
  63. WS: bul1.a /^Security Raised to /US, time by 40!
  64. O: Your Security Has Been Raised To /US!
  65. O: /^Please enter the amount you wish to contribute! (Must be over $15)
  66. WS: bul1.a /^Wishes to contribute:
  67. WSS: bul1.a
  68. O: /^Now Enter five(5) lines describing what you would like the money to/^be used for!
  69. WS: bul1.a /^Use Money For:
  70. DO 5
  71. WSS: bul1.a
  72. ENDDO
  73. L: /^Would you like to recive an envelope to send the money ($1 extra)? Y/N: 
  74. I: YyNn
  75. IF Yy
  76. WS: bul1.a /^User requested envelope!
  77. O: /^Ok! The envelope will be sent to you shortly!/^/^Please send your contribution + $1. Thanx!
  78. END
  79. ELSE
  80. O: /^OK! Please send your contribution to:/^/^Catholic Central High School/^c/o CCH Computer Club/^415 Queens Ave./^London, Ont./^N6B 3K3/^Thanx!
  81. END
  82. END
  83. ELSE
  84. WS: bul1.a User: No Contribution (made a mistake)
  85. O: /^/^Fair Enough! Please think about it, and if you change your mind
  86. O: execute this questioneer again!
  87. O: /^
  88. END
  89. END
  90. ELSE
  91. WS: bul1.a User: No
  92. O: /^/^Fair Enough! Please think about it, and if you change your mind
  93. O: execute this questioneer again!
  94. O: /^
  95. END
  96. L: /^Hit any key...
  97. WAITFORKEY
  98. END
  99.